library(NMF)
X <- syntheticNMF(100, 3, 20, noise = 2)
write.csv(X,"zzz.csv")
#䵼뵽originУheatmap...ͼ꼴ɣʵã
